home *** CD-ROM | disk | FTP | other *** search
/ Focus for Success / Focus for Success.iso / pc / game2.dxr / 00083_Field_button 2(ID=36).txt < prev    next >
Text File  |  1995-02-28  |  1KB  |  51 lines
  1. on mouseUp
  2.   PUT THE TICKS INTO LINE 2 OF CARD FLD TIME
  3.   PUT THE SHORT NAME OF ME INTO X3
  4.   IF X3=CARD FLD ANSWER1 THEN
  5.     PUT LINE 1 OF CARD FLD TIME INTO A
  6.     PUT LINE 2 OF CARD FLD TIME INTO B
  7.     PUT(B-A) INTO T1
  8.     PUT LINE 1 OF CARD FLD COUNT INTO X
  9.     PUT CARD FLD SECONDS INTO Y
  10.     IF Y-X<2 THEN
  11.       SHOW CARD FLD "GAME OVER"
  12.       WAIT 2 SECONDS
  13.       HIDE CARD FLD "GAME OVER"
  14.       CLICK AT LOC OF CARD BUTTON SCORE
  15.       EXIT MOUSEUP
  16.     END IF
  17.     
  18.     PUT 60*(Y-X) INTO T2
  19.     IF T1<T2 THEN
  20.       PUT THE NUMBER OF LINES IN CARD FLD SUBJECT1 INTO CT
  21.       ADD 1 TO LINE 1 OF CARD FLD COUNT2
  22.       PUT T1 INTO LINE CT+1 OF CARD FLD SUBJECT1
  23.       PUT 0 INTO LINE 2 OF CARD FLD COUNT3
  24.       --SHOW CARD FLD "CORRECT"
  25.       --PLAY BOING
  26.       --WAIT 30
  27.       --HIDE CARD FLD CORRECT
  28.       CLICK AT LOC OF CARD BUTTON "PLAY BONUS"
  29.     END IF
  30.     IF T1>T2 THEN
  31.       SHOW CARD FLD SORRY
  32.       WAIT 3 SECONDS
  33.       HIDE CARD FLD SORRY
  34.     END IF
  35.   END IF
  36.   
  37.   IF X3<>CARD FLD ANSWER1 THEN
  38.     --SHOW CARD FLD "WRONG"
  39.     REPEAT WITH I=1 TO 5
  40.       HIDE CARD BUTTON I
  41.     END REPEAT
  42.     --HIDE CARD FLD "WRONG"
  43.     ADD 1 TO LINE 1 OF CARD FLD COUNT3
  44.     CLICK AT LOC OF CARD BUTTON "PLAY LATERDUDE"
  45.   END IF
  46.   
  47.   
  48.   CLICK AT LOC OF CARD BUTTON START
  49.   
  50.   
  51. end mouseUp